home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 6 / CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso / cucd / readers / utils / gui4cli / demos / read.gc < prev    next >
Text File  |  1996-10-28  |  1KB  |  60 lines
  1. G4C
  2.  
  3. ; This is the new version of read.gc
  4. ; It's purpose is to demonstrate the use of screens.
  5. ; All it's good for, is displaying a text file on a borderless
  6. ; window on a new screen.
  7.  
  8. ; Since I have no way of knowing how high your Screen Bar is, you'll
  9. ; have to adjust the window size so that it fits under your
  10. ; screen Title bar (according to the screen font you use).
  11.  
  12.  
  13. WinBig  0 13 0 -14 ""
  14. WinType 000011
  15. Screen  ReaderScreen
  16.  
  17.  
  18.  
  19. ;------> On loading, make the screen, then open the window
  20. ;     Note the large buffer we reserve for the screen title, so that
  21. ;        the chosen file name fits (after $rglvfile is translated).
  22.  
  23. xOnLoad
  24. MakeScreen ReaderScreen 2 "Gui4Cli (c)1996 by D.Keletsekis"
  25. guiopen read.gc
  26. setvar rglvfile ""
  27. ReqFile -1 -1 250 -40 "Choose file" LOAD rglvfile ""
  28. if $rglvfile = ""
  29.    guiquit read.gc
  30. else
  31.    LVchange read.gc 1 $rglvfile
  32.    SetScreenTitle read.g '$rglvfile                                   '
  33. endif
  34.  
  35. xOnQuit                ; on quitting
  36. guiclose read.gc        ; we close the window first
  37. killscreen ReaderScreen        ; then kill the screen
  38.  
  39.  
  40. ;------> Project Menu
  41.  
  42. xMenu  Project Status.. "" S
  43. Status
  44.  
  45. xMenu  Project About.. "" ""
  46. ezreq "You are reading file :\n\n$rglvfile\n\non a Reader created with\n  ...wait for it...\n     Gui4Cli!!" "Gime a break!" ""
  47.  
  48. xMenu  Project Quit "" Q
  49. GuiQuit read.gc
  50.  
  51.  
  52. ;------> the listview. - Use 'L' for scrolling the list up/down
  53.  
  54. xListview 0 0 0 0 "" XLine $rglvfile 20 TXT
  55. GadID  1
  56. GadKey L
  57. GadFont topaz.font 8 000
  58.  
  59.  
  60.